ns = Range[0, 4];
style = {
    Axes -> False,
    GridLines -> Automatic,
    GridLinesStyle -> Directive[LightGray, Dashed],
    Frame -> True,
    PlotStyle -> AbsoluteThickness[3], 
    PlotLegends -> 
    Placed[
        LineLegend[
            StringTemplate["\!\(\*SubscriptBox[\(U\), \(``\)]\)(x)"] /@ ns, 
            LegendMargins -> 0, 
            LegendLayout -> {"Row", 1}
       ], Top
    ], 
    ImageSize -> 700
};

second = Table[ChebyshevU[n, x], {n, ns}];
Plot[Evaluate@second, {x, -1, 1}, Evaluate[style]]

Én, e mű szerzője a művemet az alábbi licenc alatt teszem közzé:

Ez a fájl a Creative Commons Nevezd meg! – Így add tovább! 4.0 Nemzetközi licenc alapján használható fel.

A következőket teheted a művel:

• megoszthatod – szabadon másolhatod, terjesztheted, bemutathatod és előadhatod a művet
• feldolgozhatod – származékos műveket hozhatsz létre

Az alábbi feltételekkel:

• Nevezd meg! – A szerzőt megfelelően fel kell tüntetned, hivatkozást kell létrehoznod a licencre és jelezned kell, ha a művön változtatást hajtottál végre. Ezt bármilyen észszerű módon megteheted, kivéve oly módon, ami azt sugallná hogy a jogosult támogat téged vagy a felhasználásod körülményeit.
• Így add tovább! – Ha megváltoztatod, átalakítod, feldolgozod ezt a művet, a közreműködésedet csak az eredetivel megegyező vagy hasonló licenc alatt terjesztheted.

https://creativecommons.org/licenses/by-sa/4.0CC BY-SA 4.0 Creative Commons Attribution-Share Alike 4.0 truetrue